object frmSrvMain: TfrmSrvMain
  Left = 192
  Top = 103
  Width = 359
  Height = 394
  Caption = 'Komanda HTTP Server'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 351
    Height = 367
    ActivePage = tabServer
    Align = alClient
    TabOrder = 0
    object tabServer: TTabSheet
      Caption = 'Server'
      DesignSize = (
        343
        339)
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 28
        Height = 13
        Caption = 'Port:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblTest: TLabel
        Left = 8
        Top = 318
        Width = 67
        Height = 13
        Cursor = crHandPoint
        Anchors = [akLeft, akBottom]
        Caption = 'Test Server'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = lblTestClick
        OnMouseEnter = lblTestMouseEnter
        OnMouseLeave = lblTestMouseLeave
      end
      object Label2: TLabel
        Left = 8
        Top = 40
        Width = 32
        Height = 13
        Caption = 'Root:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object sePort: TSpinEdit
        Left = 40
        Top = 8
        Width = 49
        Height = 22
        MaxValue = 65000
        MinValue = 1
        TabOrder = 0
        Value = 8008
      end
      object btnStart: TButton
        Left = 255
        Top = 306
        Width = 75
        Height = 25
        Anchors = [akRight, akBottom]
        Caption = 'Start'
        Default = True
        TabOrder = 1
        OnClick = btnStartClick
      end
      object lbxLog: TListBox
        Left = 8
        Top = 80
        Width = 321
        Height = 222
        Style = lbOwnerDrawFixed
        Anchors = [akLeft, akTop, akRight, akBottom]
        Font.Charset = RUSSIAN_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = []
        ItemHeight = 16
        ParentFont = False
        TabOrder = 2
        OnDrawItem = lbxLogDrawItem
      end
      object txtInitDir: TEdit
        Left = 8
        Top = 56
        Width = 321
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        Color = clScrollBar
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        ReadOnly = True
        TabOrder = 3
        Text = 'C:\'
      end
      object btnClear: TButton
        Left = 172
        Top = 306
        Width = 75
        Height = 25
        Anchors = [akRight, akBottom]
        Caption = 'Clear Log'
        TabOrder = 4
        OnClick = btnClearClick
      end
    end
    object tabMime: TTabSheet
      Caption = 'MIME Types'
      ImageIndex = 1
      DesignSize = (
        343
        339)
      object MimeTypes: TValueListEditor
        Left = 0
        Top = 0
        Width = 343
        Height = 297
        Align = alTop
        Anchors = [akLeft, akTop, akRight, akBottom]
        TabOrder = 0
        TitleCaptions.Strings = (
          'Extension'
          'MIME')
        ColWidths = (
          150
          187)
      end
      object btnMimeSave: TButton
        Left = 218
        Top = 304
        Width = 123
        Height = 25
        Anchors = [akRight, akBottom]
        Caption = 'Save'
        Default = True
        TabOrder = 1
      end
      object btnAddExt: TButton
        Left = 8
        Top = 304
        Width = 121
        Height = 25
        Anchors = [akLeft, akBottom]
        Caption = 'Add Ext.'
        TabOrder = 2
        OnClick = btnAddExtClick
      end
    end
  end
  object ServerSocket: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnClientRead = ServerSocketClientRead
    Left = 312
    Top = 8
  end
end
